home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Libraries / DiskFont.asm next >
Assembly Source File  |  1990-07-20  |  817b  |  46 lines
  1. *
  2. *    DiskFont.asm for PCQ Pascal
  3. *    Copyright 1990 Patrick Quaid
  4. *
  5. *    These are the glue routines for the procedures and functions
  6. *    defined in Include/Libraries/DiskFont.i.
  7. *
  8. *
  9.  
  10.     SECTION    PCQ_Runtime,CODE
  11.  
  12.     XREF    _DiskFontBase
  13.  
  14.     XREF    _LVOAvailFonts
  15.     XDEF    _AvailFonts
  16. _AvailFonts
  17.     move.l    4(sp),d1
  18.     move.l    8(sp),d0
  19.     move.l    12(sp),a0
  20.     move.l    _DiskFontBase,a6
  21.     jmp    _LVOAvailFonts(a6)
  22.  
  23.     XDEF    _DisposeFontContents
  24.     XREF    _LVODisposeFontContents
  25. _DisposeFontContents
  26.     move.l    4(sp),a1
  27.     move.l    _DiskFontBase,a6
  28.     jmp    _LVODisposeFontContents(a6)
  29.  
  30.     XDEF    _NewFontContents
  31.     XREF    _LVONewFontContents
  32. _NewFontContents
  33.     move.l    4(sp),a1
  34.     move.l    8(sp),a0
  35.     move.l    _DiskFontBase,a6
  36.     jmp    _LVONewFontContents(a6)
  37.  
  38.     XDEF    _OpenDiskFont
  39.     XREF    _LVOOpenDiskFont
  40. _OpenDiskFont
  41.     move.l    4(sp),a0
  42.     move.l    _DiskFontBase,a6
  43.     jmp    _LVOOpenDiskFont(a6)
  44.  
  45.     END
  46.